home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / ST.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  520 b   |  22 lines
  1. do while 1=1    'do forever
  2.  
  3. input "sys function to evaluate (press Esc to cancel): ", i
  4.     'if the user presses Esc or Cancel, sys(999) is set to 1
  5. if sys(999) then end
  6. xold=sys(i)
  7. message "sys(", i, ")= ", sys(i)
  8. input "enter new value for sys() :",x$
  9. if sys(999) then end
  10.     if (x$="" or x$=" ") then loop
  11.     x=val(x$)
  12.     sys(i)=x
  13. if sys(i)=x then message  "sys() changed to ", sys(i)
  14. if sys(i) <> x then message" sys() is read_only or cannot take that value"
  15. >regenerate
  16. {
  17. }
  18. loop
  19. quit:
  20. end
  21.  
  22.